Top 10k strings from side B.tzx in <root> / casete jeco / Jeco 7 - PC0017.zip /

Back to the directory listing

  10 UUUUUUUUUUUUUUU
   5 UUUUUUUUUUUUUU
   4 IF EMPTYP :LIST [OP []]
   2 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   2 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   2 UUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   2 UUUUUUUUUUUUUUUUUUUUUUUUUUUU
   2 IF MEMBERP
   2 IF EMPTYP :WINS [OP :BOX2]
   2                
   1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
   1 uUUUUUUUU]gg}uUug]]UUUh@
   1 nStart tape, then press any key
   1 logo      
   1 fffffffffn
   1 ffffffffff
   1 ]uUWg]]UUUr
   1 ]WAAAAAAUUUUUUU
   1 ]UUUUUUUUUUUUUUU
   1 ZX Interface 1 not present
   1 ZEROHITS BF :LIST
   1 ZEROHITS :FREE
   1 YOUPLAY :BOX
   1 UUUUUUUUU}UUUUUUU
   1 UUUUUUUUUaAAAAAAAEUU
   1 UUUUUUUUUU\
   1 UUUUUUUUUUU_
   1 UUUUUUUUUUU]
   1 UUUUUUUUUUUUU]_
   1 UUUUUUUUUUUUU]UU]UUUU_]UUUp
   1 UUUUUUUUUUUUUUUUUUUW
   1 UUUUUUUUUUUUUUUUUUUUUU}}]}w}_}UU
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}}]_}
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}g]]
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 UUUUUUUUUUUUUUUUUUUU
   1 UUUUUUUUUUUUUUUU
   1 UUUUUUUUUAAAAAAAAMUU
   1 UNFREE :BOX :PLAYER BF :LIST
   1 Tape error
   1 TYPE [Sau al doilea ( O ) ?]
   1 TYPE [Poftim ? ( X sau O ) :]
   1 TYPE [Mutarea ta:]
   1 TO ZEROHITS :LIST
   1 TO WINMOVE :MOVE
   1 TO UNFREE :BOX :PLAYER :LIST
   1 TO TRYMOVE :BOX
   1 TO STRIP :BOX :LIST
   1 TO SHORTEN :BOX :LIST
   1 TO REMOVE :THING :LIST
   1 TO PLAY :BOX :PLAYER :OTHER
   1 TO PICKMOVE
   1 TO MOVE :BOX
   1 TO MEPLAY :BOX
   1 TO LINE :POS :HEAD :LEN
   1 TO GETMOVE
   1 TO FORKMOVE :LISTS
   1 TO FORK1 :LIST
   1 TO DRAWX :BOX
   1 TO DRAWO :BOX
   1 TO DRAW :WHO :BOX
   1 TO CHOOSEX
   1 TO CHOOSEO
   1 TO CHOOSE :SIDE
   1 TO BEST2 :BOX1 :BOX2 :WINS
   1 TO BEST1 :BOX1 :BOX2 :WINS
   1 TO BEST :LIST
   1 TITATO LOG
   1 STOP!!!   
   1 SINGLE :LIST
   1 SETPOS THING WORD "BOX :BOX
   1 SETPOS :POS
   1 SETH :HEAD
   1 RUN SE WORD "DRAW :WHO :BOX
   1 RP :BOX1 FIRST :WINS [OP BEST2 :BOX1 :BOX2 BF :WINS]
   1 ROBOT PROBLEM
   1 REPEAT 8 [FD 12 RT 45]
   1 Prea putine intrari  
   1 Peste margine !     
   1 PTYP :LIST [OP []]
   1 PR [Vrei sa muti primul ( X )]
   1 PR [Tastle 1 - 9 pentru mutare]
   1 PLAY :BOX "YOURWINS "MYWINS
   1 PLAY :BOX "MYWINS "YOURWINS
   1 P GETMOVE]
   1 OP TRYMOVE RC
   1 OP SINGLE BF :LIST
   1 OP MEMBERP [] :YOURWINS
   1 OP FPUT FIRST :LIST STRIP :BOX BF :LIST
   1 OP FPUT FIRST :LIST SHORTEN :BOX BF :LIST
   1 OP FPUT FIRST :LIST REMOVE :THING BF :LIST
   1 OP FPUT FIRST :LIST 
   1 OP FORK1 BF :LIST
   1 OP BEST2 :BOX1 :BOX2 BF :WINS
   1 OP BEST1 :BOX1 :BOX2 BF :WINS
   1 Numar mare !   
   1 NS [OP "FALSE]
   1 NEGNATOCCRA
   1 MEPLAY :MOVE
   1 MAKE WORD "HIT FIRST :LIST "TRUE
   1 MAKE WORD "HIT FIRST :LIST "FALSE
   1 MAKE :PLAYER SHORTEN :BOX THING :PLAYER
   1 MAKE :OTHER STRIP :BOX THING :OTHER
   1 MAKE "YOURWINS []
   1 MAKE "YOU "X
   1 MAKE "YOU "O
   1 MAKE "MYWINS []
   1 MAKE "ME "O
   1 MAKE "FREEWINS [[1 5 9] [3 5 7] [1 2 3] [4 5 6] [7 8 9] [1 4 7] [
   1 MAKE "FREEWINS UNFREE 
   1 MAKE "FREE REMOVE :BOX :FREE
   1 MAKE "BOX9 [26 -54]
   1 MAKE "BOX8 [-14 -54]
   1 MAKE "BOX7 [-54 -
   1 MAKE "BOX6 [26 -14]
   1 MAKE "BOX5 [-14 -14]
   1 MAKE "BOX4 [-54 -14]
   1 MAKE "BOX3 [26 26]
   1 MAKE "BOX2 [-14 26]
   1 MAKE "BOX1
   1 LOGTXTBINSCR
   1 LOGOc     
   1 LOGO not fresh
   1 LOGO      
   1 LINE [20 -60] 0 120
   1 LINE [-60 20] 90 120
   1 LINE [-60 -20] 90 120
   1 LINE [-20 -60] 0 120
   1 KE "FREE [5 1 3 7 9 2 4 6 8]
   1 In afara ecranului 
   1 Impartire la zero !  
   1 ITCI BUCURESTI 1987 ver.1
   1 IF WINMOVE SINGLE :YOURWI
   1 IF WINMOVE SINGLE :MYWINS [OP "TRUE]
   1 IF THING WORD "HIT FIRST :LIST [MEPLAY FIRST :LIST OP "TRUE]
   1 IF PICKMOVE [PR [AM CISTIGAT !] STOP]
   1 IF OR EQUALP :SIDE "X 
   1 IF OR EQUALP :SIDE "O EQUALP :SIDE "o [CHOOSEO STOP]
   1 IF NOT MEMBERP :BOX :FREE [PR [Mutare ilegala!] O
   1 IF NOT EMPTYP :MYWINS [MEPLAY BEST FIRST :MYWINS OP "FALSE]
   1 IF MEMBERP :BOX FIRST :LIST [OP STRIP :BOX BF :LI
   1 IF MEMBERP :BOX FIRST :LIST [OP 
   1 IF GETMOVE [PR [AM PIERDUT !] STOP]
   1 IF FORKMOVE :MYWINS [OP "FALSE]
   1 IF FORK1 FIRST :LISTS [OP "TRUE]
   1 IF EQUALP :THING FIRST :LIST [OP BF :LIST]
   1 IF EQUALP :ME "X [MEPLAY 5]
   1 IF EMPTYP BF FIRST :LIST [OP FIRST FIRST :LIST]
   1 IF EMPTYP :LISTS [OP "FALSE]
   1 IF EMPTYP :LIST [STOP]
   1 IF EMPTYP :LIST [OP "FAL
   1 IF EMPTYP :FREE [PR [REMIZA !] STOP]
   1 File not found
   1 File already exists
   1 FPUT REMOVE :BOX FIRST :LIST SHORTEN :BOX BF :LIST]
   1 FOTO   BIN
   1 FD 40 BK 20 RT 90 FD 20 BK 40
   1 F EMPTYP :MOVE [OP "FALSE]
   1 EVITIMIRP.
   1 EQUALP :SIDE "x [CHOOSEX STOP]
   1 EERCSRAELC
   1 Deja la nivel LOGO
   1 DRAW :YOU :BOX
   1 DRAW :ME :BOX
   1 CTRL      
   1 Bad file name
   1 BINE ATI VENIT IN LOGO !
   1 BEST1 FIRST :LIST LAST :LIST :YOURWINS
   1 BASIC SYSTEM ERROR ? ? ?
   1 AAAAAAUUUUUUU
   1 AAAAAAAAUUUUUU
   1 ;"SE INCARCA LOGO"
   1 :BOX :PLAYER :FREEWINS
   1 3;3s7""22"P
   1 3;3333?33s"
   1 34ABCHJKLF
   1 33uUUUUUUUUUUUUUUWuUU_
   1 33s33;37's3333;
   1 33;7333s?33
   1 3373333373sb6":"":"#3
   1 333s?3{33;
   1 333s3377;3
   1 333s33333s;
   1 333s33333s3ss;333
   1 333s333333;7
   1 333=UUUUUUUUUUUU_
   1 333=UUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 333;37;s33;3;76;332fh
   1 3333=UUUUUUUUUUU]z
   1 33337UUUUUUUUW
   1 333337UUUUUUUUUUUW
   1 3333333uUUUU
   1 33333333=UUWtH
   1 333333333uUUU
   1 3333333337UU)
   1 3333333333=UP
   1 2 5 8] [3 6 9]]
   1 1987,ITCI                               
   1  open file problem
   1  nu merge cu  
   1  nu e valoare logica 
   1  nu e cuvint  
   1  nu are iesire pt.  
   1  nedefinit   
   1  este primitiva
   1  este deja definit 
   1  Nu ai spus ce sa fac cu     
   1  FORKMOVE BF :LISTS
   1  EMPTYP :FREE [MEPLAY FIRST :FREE]
   1  :BOX1 FIRST :WINS [OP :BOX1]
   1  :BOX FIRST :LIST [MAKE :PLAYER FPUT REMOVE :BOX FIRST :LIST THING :PLAYER OP UNFREE :BOX :PLAYER BF :LIST]
   1   Prea multe paranteze     
   1   Memorie insuficienta     
   1    Nu stiu cum sa   
   1    LOGO    este adaptat in limba romana de cercetator   st. Ion Diamandi,ITCI si Cristian Constantinescu dupa versiuneaLOGO 3.0 a firmei SOLI/LCSI                                   
   1    Cuvinte lipsa in 
   1                                        EDITOR LOGO             
   1                                                                                                                                                                                                                                 =
   1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
   1